home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / misc / MLogBook_lt.lha / MLogBook / Install / Install_MLogBook < prev    next >
Text File  |  2000-11-16  |  9KB  |  272 lines
  1. ;
  2. ; $VER: Installer script 1.0 for MLogBook 0.60 (16.11.00) © Grzegorz Fitrzyk
  3. ; 
  4.  
  5. ; /// Setting up
  6. (set #def_lang_English              0)
  7. (set #def_lang_Polski               1)
  8.  
  9. (set #def_doc_English               0)
  10. (set #def_doc_Polski                1)
  11. ; ///
  12. ;----------------------------------------------------------------------------
  13. ;/// ***** English
  14. (set #def_cat_lang #def_lang_English)
  15. (set #def_doc_lang #def_doc_English)
  16. (set #wrongOS  "MLogBook needs at least OS2.1 to run\n")
  17. (set #wrongMUI "MLogBook needs at least MUI3.8 to run\n")
  18. (set #wrongCPU "MLogBook needs at least a 68020 CPU to run\n")
  19. (set #proc_type "Select which version of MLogBook you would like to install:")
  20. (set #proc_help (cat "Here you can select which version of MLogBook to install "
  21.                      "depending on type of processor you own."))
  22. (set #proc_020 "Optimized for 68020/030")
  23. (set #proc_040 "Optimized for 68040")
  24. (set #proc_060 "Optimized for 68060")
  25. (set #rules_type "Select your country:")
  26. (set #rules_help (cat "Here you can select which version of MLogBook Contest Rules files to install."))
  27. (set #rules_poland "Poland (SP)")
  28. (set #rules_other "other")
  29. (set #MLogBook_dir  (cat "Please select where you want to install MLogBook.\n"
  30.                     "A drawer named 'MLogBook' will be created in this directory"))
  31. (set #lang_catalog (cat "Which catalog file do you want to install?\n"
  32.                         "(English language is built-in)"))
  33. (set #lang_manual "Select language for on-line AmigaGuide help")
  34. (set #done_1   (cat "\nMLogBook has been succesfuly installed.\n\n"
  35.                     "Click the \"MLogBook\" icon in the\n"))
  36. (set #done_2        "\ndirectory to taste it.\n\nHave fun...")
  37. ; ///
  38.  
  39. ; /// ***** Polski
  40. (IF (= @language "polski")
  41. (
  42. (set #def_cat_lang #def_lang_Polski)
  43. (set #wrongOS  "MLogBook do uruchomienia wymaga systemu w wersji 2.1 lub wyûszej\n")
  44. (set #wrongMUI "MLogBook do uruchomienia wymaga MUI w wersji 3.8 lub wyûszej\n")
  45. (set #wrongCPU "MLogBook do uruchomienia wymaga procesura 68020 lub nowszego\n")
  46. (set #proc_type "Wybierz którâ wersjë MLogBooka chcesz zainstalowaê:")
  47. (set #proc_help (cat "Tu moûesz wybraê którâ wersjë MLogBooka chcesz zainstalowaê "
  48.                      "zaleûnie od typu procesora który posiadasz."))
  49. (set #proc_020 "Zoptymalizowanâ dla 68020/030")
  50. (set #proc_040 "Zoptymalizowanâ dla 68040")
  51. (set #proc_060 "Zoptymalizowanâ dla 68060")
  52. (set #rules_type "Wskaû kraj, w którym mieszkasz:")
  53. (set #rules_poland "Polska (SP)")
  54. (set #rules_other "inny")
  55. (set #rules_help (cat "Tu moûesz wybraê którâ wersjë plików z regulaminami do zawodów chcesz zainstalowaê."))
  56. (set #MLogBook_dir  (cat "Pokaû, gdzie mam zainstalowaê MLogBooka.\n"
  57.                     "Katalog 'MLogBook' zostanie stworzony w tym katalogu."))
  58. (set #lang_catalog (cat "Który plik tîumaczenia chcesz zainstalowaê?\n"
  59.                         "(Jëzyk angielski jest wbudowany)"))
  60. (set #lang_manual "Wybierz jëzyk dla pomocy on-line")
  61. (set #done_1   (cat "\nMLogBook zostaî zainstalowany.\n\n"
  62.                     "Kliknij ikonë \"MLogBook\" w katalogu\n"))
  63. (set #done_2        "\naby go uruchomiê.\n\nMiîej zabawy...")
  64. )
  65. )
  66. ; ///
  67.  
  68. ;----------------------------------------------------------------------------
  69. ; /// Checking environment
  70. (set OS_ver (getversion "exec.library" (resident)))
  71. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  72.  
  73. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  74. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  75.  
  76. (set cpu_type (database "cpu"))
  77. (if (< cpu_type "68020") (abort #wrongCPU))
  78. (set cpu 0)
  79. (if (= cpu_type "68040") (set cpu 1))
  80. (if (= cpu_type "68060") (set cpu 2))
  81.  
  82. (set package_cpu (exists "/.package_cpu"))
  83. (set package_loc (exists "/.package_loc"))
  84. (set MLogBook_def_dir "RAM:")
  85. ; ///
  86. ; /// Let's ask user for anything
  87. (complete 0)
  88.  
  89. (set mldir
  90.    (askdir
  91.       (default MLogBook_def_dir)
  92.       (prompt  #MLogBook_dir)
  93.       (help    @askdir-help)
  94.    )
  95. )
  96. (set MLogBook_dir (tackon mldir "MLogBook") )
  97. (if (not (exists MLogBook_dir) )
  98.   ( (makedir MLogBook_dir) )
  99.   ( (set MLogBook-version (/ (getversion (tackon mldir "MLogBook/MLogBook") ) 65536 ) )
  100.     (if (< MLogBook-version 1)
  101.       ( (run (cat "c:rename \"" (tackon mldir "MLogBook") "\" \"" (tackon mldir "MLogBook_Old") "\"") )
  102.         (makedir MLogBook_dir) ) ) ) )
  103.  
  104. (if (not (exists (tackon MLogBook_dir "MLogBook.info") ) )
  105.   (copyfiles (source "/icons/5.info") (dest mldir) (newname "MLogBook.info") ) )
  106.  
  107.  
  108. (complete 5)
  109.  
  110. (if package_cpu
  111.    (set cpu
  112.       (askchoice
  113.          (prompt #proc_type)
  114.          (help #proc_help "\n" @askchoice-help)
  115.          (choices #proc_020 #proc_040 #proc_060)
  116.          (default cpu)
  117.       )
  118.    )
  119.    (set cpu 0)
  120. )
  121.  
  122. (complete 10)
  123.  
  124. (if package_loc
  125.    (set Catalog_lang
  126.       (askoptions
  127.          (prompt  #lang_catalog)
  128.          (help @askoptions-help)
  129.          (choices "Polski"
  130.          )
  131.          (default #def_cat_lang)
  132.       )
  133.    )
  134.    (set Catalog_lang #def_lang_English)
  135. )
  136.  
  137. (complete 15)
  138.  
  139. (set Docs_lang
  140.    (askchoice
  141.       (prompt  #lang_manual)
  142.       (help    @askchoice-help)
  143.       (choices "English" "Polski")
  144.       (default #def_doc_lang)
  145.    )
  146. )
  147.  
  148. (set rules
  149.   (askchoice
  150.       (prompt #rules_type)
  151.       (help #rules_help "\n" @askchoice-help)
  152.       (choices #rules_other #rules_poland)
  153.       (default #rules_other)
  154.    )
  155. )
  156. (set rules 1)
  157.  
  158. ; /// Here we go!
  159. (complete 20)
  160.  
  161. (makedir MLogBook_dir (infos))
  162. (copyfiles (source "/680x0/MLogBook.info") (dest MLogBook_dir) (infos) (help @copyfiles-help))
  163. (select cpu
  164. (copyfiles (source "/680x0/MLogBook") (dest MLogBook_dir) (help @copyfiles-help))
  165. (run (cat "/680x0/spatch -o" (tackon MLogBook_dir "MLogBook") " -p/680x0/MLogBook.68040.pch /680x0/MLogBook"))
  166. (run (cat "/680x0/spatch -o" (tackon MLogBook_dir "MLogBook") " -p/680x0/MLogBook.68060.pch /680x0/MLogBook"))
  167. )
  168.  
  169. (complete 30)
  170.  
  171. (if (> Catalog_lang 0)
  172. (
  173.    (set Cat_dir (tackon MLogBook_dir "Catalogs"))
  174.    (if (not (exists Cat_dir))  (makedir Cat_dir))
  175.    (if (bitand Catalog_lang #def_lang_Polski)           ((set lang "polski") (copyfiles (source (tackon "/Catalogs" lang)) (choices "MLogBook.catalog") (dest (tackon Cat_dir lang)))))
  176. )
  177. )
  178.  
  179. (complete 35)
  180.  
  181. (if (= Docs_lang #def_doc_English  ) (copyfiles (source "/Docs/MLogBook_en.guide")   (dest MLogBook_dir) (newname "MLogBook.guide") (infos)))
  182. (if (= Docs_lang #def_doc_Polski  ) (copyfiles (source "/Docs/MLogBook_pl.guide")   (dest MLogBook_dir) (newname "MLogBook.guide") (infos)))
  183.  
  184. (complete 40)
  185.  
  186. (set Icons_dir (tackon MLogBook_dir "Icons"))
  187. (if (not (exists Icons_dir))
  188. (
  189.    (makedir Icons_dir)
  190.    (copyfiles (source "/Icons")  (dest Icons_dir) (all))
  191. )
  192. )
  193.  
  194. (set Images_dir (tackon MLogBook_dir "Images"))
  195. (if (not (exists Images_dir))
  196. (
  197.    (makedir Images_dir)
  198.    (copyfiles (source "/Images")  (dest Images_dir) (all))
  199. )
  200. )
  201.  
  202. (set dummy 0)
  203.  
  204. (complete 45)
  205.  
  206. (set Rules_dir (tackon MLogBook_dir "Rules"))
  207. (if (not (exists Rules_dir))
  208. (
  209.    (makedir Rules_dir)
  210.     (if (= #rules_other ) (copyfiles (source "/Rules_other") (dest Rules_dir) (all)))
  211.     (if (= #rules_poland ) (copyfiles (source "/Rules_SP") (dest Rules_dir) (all)))
  212.    (copyfiles (source "/Rules_common") (dest Rules_dir) (all))
  213. )
  214. )
  215.  
  216. (complete 50)
  217.  
  218. (set CallBook_dir (tackon MLogBook_dir "CallBook"))
  219. (if (not (exists CallBook_dir))
  220. (
  221.    (makedir CallBook_dir)
  222.    (copyfiles (source "/CallBook")  (dest CallBook_dir) (all))
  223. )
  224. )
  225.  
  226. (complete 60)
  227.  
  228. (set Index_dir (tackon MLogBook_dir "Index"))
  229. (if (not (exists Index_dir))
  230. (
  231.    (makedir Index_dir)
  232.    (copyfiles (source "/Index")  (dest Index_dir) (all))
  233. )
  234. )
  235.  
  236. (complete 70)
  237.  
  238. (set Prefixes_dir (tackon MLogBook_dir "Prefixes"))
  239. (if (not (exists Prefixes_dir))
  240. (
  241.    (makedir Prefixes_dir)
  242.    (copyfiles (source "/Prefixes")  (dest Prefixes_dir) (all))
  243. )
  244. )
  245.  
  246. (complete 80)
  247.  
  248. (copyfiles (source "/Main")  (dest MLogBook_dir) (infos) (all))
  249.  
  250. (complete 90)
  251.  
  252. (copylib (prompt "MUI - BetterString.mcc") (source "/Libs/MUI/BetterString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  253. (copylib (prompt "MUI - BetterString.mcp") (source "/Libs/MUI/BetterString.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  254. (copylib (prompt "MUI - HotkeyString.mcc") (source "/Libs/MUI/HotkeyString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  255. (copylib (prompt "MUI - NFloattext.mcc")   (source "/Libs/MUI/NFloattext.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  256. (copylib (prompt "MUI - NList.mcc")        (source "/Libs/MUI/NList.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  257. (copylib (prompt "MUI - NListview.mcc")    (source "/Libs/MUI/NListview.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  258. (copylib (prompt "MUI - NListviews.mcp")   (source "/Libs/MUI/NListviews.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  259. (copylib (prompt "MUI - SpeedBar.mcc")     (source "/Libs/MUI/SpeedBar.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  260. (copylib (prompt "MUI - SpeedBar.mcp")     (source "/Libs/MUI/SpeedBar.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  261. (copylib (prompt "MUI - SpeedBarCfg.mcc")  (source "/Libs/MUI/SpeedBarCfg.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  262. (copylib (prompt "MUI - SpeedButton.mcc")  (source "/Libs/MUI/SpeedButton.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  263.  
  264. (complete 100)
  265.  
  266. (message #done_1 "\"" MLogBook_dir "\"" #done_2)
  267.  
  268. ; /// ********************
  269. ;----------------------------------------------------------------------------
  270. (exit (QUIET))
  271.  
  272.